RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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MODULE gtabs ( JDENT 5 *V04-000' 

ISS32L, ADDRESSING_MODE (EXTERNAL = LONG_RELAT TIVE 
, NONEXTERNAL = LONG-RELATIVESJ 
= 


BEGIN 


Se ee te eee at mont 
ot 

id Stitt A is) 1978, 1980, 1982, 1984 B 

'® DIGITAL PMENT 1 CORPORATION," MAYNARD. MASSACHUSETTS. 

:* ALL RIGH $ URESERVED . 


; H H 
!* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOF TUARE IS HEREBY 


® 
e 
® 
ae 
® 
* 
e 
® 
® 
* 
ie TRANSFERRED. * 
we 
® 
® 
® 
® 
® 
® 
® 
& 
® 


ooc 


ie phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


ooo 


ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
Hl CORPORATION. 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Ssssssss 


ROAR RARER AAEREAAAAAAAA AERA EAAAARAA ATA AAA TAREE RARHAARAEEARER ETE 
' 


i ABSTRACT: 


i ENVIRONMENT: Transportable 
i AUTHOR: R.W.Friday CREATION DATE: July, 1978 


SSssooooses 


WAIWAAAAAI AWW 


) 
' 
: Collects and validates tabs when activated via a .TABS command. 
! 
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FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
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peerte "Revision History’ 

MODIFIED BY: 

003 n Randall 07-Mar-1983 
a 
ie 


Gtobal seett of alt "ecules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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-74 Podge 
“Sep DISKSVMSMASTER: CRUNOFF ..SRCIGTABS.BLI; 


1 3 
Module Level Declarations 1 (3) 
ZSBTTL ‘Module Level Declarations’ 


TABLE OF CONTENTS: 
i INCLUDE FILES: 


2 


oa 
SRLS NOUS 
OOOCOCoCoOooOoO 
oh om iehoten 


LIBRARY "NXPORT:XPORT'; ' XPORT Library 

REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 
ZIF DSRPLUS ZTHEN 

LIBRARY REQ:DPLLIB'; ! DSRPLUS BLISS Library 
LIBRARY "REQ:DSRLIB'; ! DSR BLISS Library 

1 


EXTERNAL REFERENCES: 


3 2 
OOOCOCWOoOowoowowvono 


ooo 


EXTERNAL 
74 NMLST : NUMBER_LIST 'GLNM returns command parameters here 
0 TTABLE : COUNTED_LIST; iTable of tab settings 
7 EXTERNAL LITERAL ‘Error messages 
78 RNF TMT; 


EXTERNAL ROUTINE 
ERMA, 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: GLNM; 
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cc 
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Module Level Declarations 1 ~Sep-19 4 99:08:40 DISKSVMSMASTER: CRUNOFF .SRCIGTABS.BLI;1> (4) 
GLOBAL ROUTINE GTABS (HANDLER_CODE) : NOVALUE = 


1+ 
! FUNCTIONAL DESCRIPTION: 


GTABS calls GLNM to pick up a List of tab settings, and 
then validates them and sets up the new tab sere ngs in 
TTABLE. In the normal case, t ¢ numbers are $s aply picked 
Up. and become the new tab settings. However, there are 
the following special cases. 


1) If no tab settings are given. the tab settings 
count (TTABLELCL_INDEX]) is set to zero to indicate 
that no tabs are to be expanded. However, 
the settings are left undisturbed, and can be 
recovered later. 

2) If the user just specified a ',' instead of giving 
a value (i.e., NM_NULL), the ‘‘old’’ tab stop setting 
is used as a parameter value instead. 

It undergoes the same validation that a normal setting 
would. In this way, tab settings ‘‘turned off"', as 
described in 1) are recovered. 


FORMAL PARAMETERS: 
HANDLER_CODE is not examined. It is passed to this routine 
for reasons of conformity only. It will always have the 
value H_TAB_STOPS. 

IMPLICIT INPUTS: 
The current setting of TTABLE is used as input. 

IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 


BREESE EF FWWWWWIWIWWIWIWIIRIRIPINININININININ 2 3 


PIPPI PIPOPINININPIPIPYNIPININIPIPIPIPIPOPIPYIPIPPIPIPIPYPIPIPIPIPYIPIPIPYIPIPUINPY 


OOOCOOCOOCOOSSOOCOSSSOOOOOCSOOCOOOCOOCOSOOOOOOOOOSCOOoOO 


COMPLETION CODES: None 
SIDE EFFECTS: None 
BEGIN 


CAL 
PREVIOUS_TAB, 
TEMP; 


WIAPORIPONPONIPUNINUN 2 2 OOO 


—ODOeanou USSSSSVERRESULSSwNSARUwoOSR NAR OW Soe VMIFSWN—OOONOu 


GLNM (0); ‘Request maximum number of tabs 
IF .NMLST_COUNT EQL 0 
THEN 


PA ARQEWMMNIMNVIVNNIVI 
SUSAR AS Soo Gorn Fatt OOO NOM PWN ODO AO UM OO OUT UNA O09 RU 


BEGIN 
TTABLE CCL_INDEX) = 0; 'Turn off all tabs 
RETURN; 
END; 
Fg et COU GTR .TTABLE CCL_MAX_INDEX] 


1 
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1 
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1 
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os «NMLST_DESCR (.1) EQL NM_NULL 


TEMP = .TTABLE C.1] 
ELSE 


i LE SET (.1) EQL NM_UNSIGNED 


oe = .NMLST_VALUE (.1) 
'A signed value to adjust this tab setting. 
TEMP = .TTABLE C.1] + .NMLST_VALUE (.1); 


‘At this point, TEMP contains the number that might become 

ithe new tab Hy ty ay ye 

'The null ic; has been resolved by applying the ‘‘old’’ setting. 
TTABLE C.1] = .TEMP; : 


T 'Tab setting is ok 
PREVIOUS TAB = . TEMP; 
TTABLE CCL_INDEX) = <1; 


BEGIN 
§ ERMA (RNFTMT, FALSE); 'Too many tab settings 
4 NMLST COUNT = ,TTABLE CCL_MAX_INDEX]; Fix it up 
$ PREVIOUS_TAB = 0; 
§ INCR_I FROM 1 TO .NMLST_COUNT DO 
? BEGIN 
§ 0 es, chan (.1) EQL NM_BAD 
4 TEMP = .TTABLE C.1) 'Use old value instead 
5 0 ELSE 
6 0 
7 0 
8 0 
9 
0 


OOO 000000909 090909 09 09 0900 INI NINNNNIO 


i hk kk hh tt 
FUN (OO OODNAUES WIN O OBNOUSWN (OO OONOUESWIN O00 


PP RO ee ett et ee tet et ee a ep 
NOUSWN—"OVOONOU 


—rnor 


em wf afolololololololololto) 


WWNIWIwronononononononofnonond 


Soooowvwowono 


END; ‘End of GTABS 


ee 
nm 
x oe 


LE GTABS 

NT \v04-000\ 

-EXTRN NMLST, TTABLE, RNFTMT 
~EXTRN ERMA, GLNM 


-PSECT SCODES,NOWRT,2 


003¢ 000 .ENTRY GTABS, Save R2,R3,R4,R5 : 0212 
55 900000006 EF 9€ 0000 MOVAB  NMLST : 
54 000000006 cr 9E 0000 MOV TTABLE+4, R4 ; 
000000006 EF OF Pe O02 See at GUNN = 
4 63 09 1 MOVL {sT, RO > 0260 
3 1 1C BNEO ; 
64 ps I CURL TTABLE+4 363 
FC AG 5 3 1$ CMPL RO, TTABLE > 026 
9 ot 0025 BLEQ Re : 


$ep-1984 VAX-11 Bliss-32 V4.0-742 
Module Level Declarations 1$-s¢ at 7 99: bai2 DISKSVMSMASTER: CRUNOFF. SRCIGTABS.BLI; a 8 


7E 04 7 LRL -(SP ; 0270 . 
000000006 + 0D 9 PUSH #RNE TMT : 3 
000000006 fr 43 F CALL #2, ERMA ; 3 
5 FC OG OD MOVL § TTABLE, NMLST + 0271 ; 
D4 A 2$: CLAL PREVIOUS_ TAB 3; 0274 $ 
D4 C CLRL 3; 0276 F 
11 4 BRB $ : 3 
3, OOAO C5 D 40 3$: MOVL NMLST+160CIJ, R1 ; 0279 3 
4 1 =O rt: CMPL R1, #4 : 3 
4 1 4 BEQL 4$° : 3 
1 » 48 TSTL R1 3; 0284 3 
§ 4D BNEQ 5$ : 3 
52 64 ) 4F 4$: MOVL TTABLE+4C1], TEMP 3; 0286 : 
11. «+11 B82 BRB 7$ 3 : 
01 51 01 88 5$: CMP. R1, #1 3; 0289 3 
28 is : BNEQ 6$ 3 3 
52 6540 DO OO05A MOVL NMLSTCI], TEMP : 0291 $ 
06 11 443 BRB $ 3 3 
52 6440 6540 C1 0006 gs: ADDL3 wm stehs TTABLE+4C1], TEMP 3 0294 3 
ae 5 pe 00066 7$: MOVL TEMP, TTABLE+4(1) 3; 0299 ; 
5 5 DO O006A MOVL es PREVIOUS_ TAB ; 0500 é 
64 5 0° BO088 MOVL ABLE +4 : 0301 3 
cc 50 65 3 00070 8$: AOBLEQ NALST. 1, 3$ : 0276 ; 
04 00074 RET 3; 0504 : 
; Routine Size: 117 bytes, Routine Base: $CODE$ + 0000 : 
; 178 0305 1 3 
: 179 0306 1 END 'End of module ; 
; 180 0307 0O ELUDOM : 
: PSECT SUMMARY : 
3 Name Bytes Attributes 
3; SCODES 117 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
cocceoee Symbols -------- Pages Processing 
File Total Loaded Percent Mapped © 


Bete Se Ge Se Ge Se 


55$DUA28: (SYSLIBIXPORT.L32;1 590 0 0 252 00:00.1 
55$DUAZ8: ‘Fayette SRCIDSRLIB.L32;1 1248 14 1 86 00:00.3 
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; COMMAND QUALIFIERS 

H BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:GTABS/OBJ=O0BJ$:GTABS MSRC$:GTABS/UPDATE=(ENH$:GTABS) 
Size: 117 soge + 0 data bytes 

Run Time: 


Elapsed Time: 0:15. 
Lines/CPU Min 4244 
Lexenes/CPU-Rin: 17350 

enery Tt 51 pages 
a akien Complete 
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